10 REM ***************************
20 REM  FOXDISK ALS DATENSPEICHER
30 REM ***************************
40 SYS 49152:REM FOXDISK AKTIVIEREN
50 PRINT "[147][194]ITTE [196]ATEN EINGEBEN, _ FUER [197]NDE."
60 OPEN 1,7,1:REM SCHREIBFILE EROEFFNEN
70 PRINT "[196]ATENZEIGER STEHT AUF:";
80 PRINT PEEK(253)+PEEK(254)*256+(PEEK(252)=8)*32768
90 INPUT "";A$
100 IF A$="_" GOTO 160
110 IF (PEEK(253)+PEEK(254)*256+(PEEK(252)=8)*32768)+LEN(A$)>32766 GOTO 140
120 PRINT#1,A$:REM DATUM INS PAGEFOX-RAM SCHREIBEN
130 GOTO 70
140 PRINT "[196]ATENSPEICHER ERSCHOEPFT!"
150 POKE 198,0:WAIT 198,1:GET A$
160 PRINT#1,"_":REM ENDEZEIGER INS PAGEFOX-RAM SCHREIBEN
170 CLOSE 1:REM SCHREIBFILE SCHLIESSEN
180 PRINT "[147][198]OLGENDES WURDE EINGEGEBEN:"
190 OPEN 1,7,0:REM LESEFILE EROEFFNEN
200 INPUT#1,A$:REM DATUM AUS PAGEFOX-RAM LESEN
210 IF A$="_" GOTO 260
220 PRINT "[208]OSITION:";PEEK(253)+PEEK(254)*256+(PEEK(252)=8)*32768
230 PRINT ""A$
240 FOR I=1 TO 300:GET A$:IF A$="" THEN NEXTI
250 GOTO 200
260 PRINT "[196]ATENENDE!"
270 CLOSE 1:REM LESEFILE SCHLIESSEN